home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Best of www.BestZips.com (Collector's Edition)
/
Best of WWW.BESTZIPS.COM Collector's Edition (JCSM Shareware) (JCS Marketing).ISO
/
prgtools
/
prtsut53.zip
/
SU1SRC.ZIP
/
FDEMO20.DFM
/
FDEMO20.txt
next >
Wrap
Text File
|
1996-12-09
|
22KB
|
929 lines
object Form20: TForm20
Left = 81
Top = 76
Width = 640
Height = 639
ActiveControl = Panel1
Caption = 'Form20'
Font.Color = clBlack
Font.Height = -14
Font.Name = 'MS Sans Serif'
Font.Style = []
PixelsPerInch = 120
Position = poScreenCenter
OnCreate = FormCreate
TextHeight = 16
object Panel1: TPanel
Left = 0
Top = 0
Width = 632
Height = 50
Align = alTop
TabOrder = 0
object DBNavigator: TDBNavigator
Left = 10
Top = 10
Width = 291
Height = 31
DataSource = DataSource1
Ctl3D = False
ParentCtl3D = False
TabOrder = 0
end
object Preview: TBitBtn
Left = 332
Top = 10
Width = 71
Height = 33
Hint = 'Preview /Print current page'
Caption = '&Preview'
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnClick = PreviewClick
end
object PrintAll: TBitBtn
Left = 404
Top = 10
Width = 71
Height = 33
Hint = 'Print all from Query'
Caption = 'Print&All'
ParentShowHint = False
ShowHint = True
TabOrder = 2
OnClick = PrintAllClick
end
object Print3: TBitBtn
Left = 476
Top = 10
Width = 71
Height = 33
Hint = 'Print next 3 records from Query'
Caption = 'Print&3'
ParentShowHint = False
ShowHint = True
TabOrder = 3
OnClick = Print3Click
end
object Exit: TBitBtn
Left = 548
Top = 10
Width = 71
Height = 33
Hint = 'Exit'
Caption = '&Exit'
ModalResult = 2
ParentShowHint = False
ShowHint = True
TabOrder = 4
OnClick = ExitClick
end
end
object Panel2: TPanel
Left = 0
Top = 91
Width = 632
Height = 232
Align = alTop
BevelInner = bvLowered
BorderWidth = 4
Caption = 'Panel2'
TabOrder = 1
object ScrollBox: TScrollBox
Left = 6
Top = 6
Width = 620
Height = 220
HorzScrollBar.Margin = 6
HorzScrollBar.Range = 337
VertScrollBar.Margin = 6
VertScrollBar.Range = 348
VertScrollBar.Visible = False
Align = alClient
AutoScroll = False
BorderStyle = bsNone
TabOrder = 0
object Label1: TLabel
Left = 6
Top = 10
Width = 109
Height = 16
Alignment = taRightJustify
AutoSize = False
Caption = 'CustNo'
FocusControl = EditCustNo
end
object Label2: TLabel
Left = 6
Top = 36
Width = 109
Height = 16
Alignment = taRightJustify
AutoSize = False
Caption = 'Company'
FocusControl = EditCompany
end
object Label3: TLabel
Left = 6
Top = 62
Width = 109
Height = 16
Alignment = taRightJustify
AutoSize = False
Caption = 'Addr1'
FocusControl = EditAddr
end
object Label4: TLabel
Left = 6
Top = 88
Width = 109
Height = 16
Alignment = taRightJustify
AutoSize = False
Caption = 'Addr2'
FocusControl = EditAddr2
end
object Label5: TLabel
Left = 6
Top = 114
Width = 109
Height = 16
Alignment = taRightJustify
AutoSize = False
Caption = 'City'
FocusControl = EditCity
end
object Label6: TLabel
Left = 6
Top = 140
Width = 109
Height = 16
Alignment = taRightJustify
AutoSize = False
Caption = 'State'
FocusControl = EditState
end
object Label7: TLabel
Left = 6
Top = 166
Width = 109
Height = 16
Alignment = taRightJustify
AutoSize = False
Caption = 'Zip'
FocusControl = EditZip
end
object Label8: TLabel
Left = 6
Top = 192
Width = 109
Height = 16
Alignment = taRightJustify
AutoSize = False
Caption = 'Country'
FocusControl = EditCountry
end
object EditCustNo: TDBEdit
Left = 121
Top = 6
Width = 70
Height = 24
DataField = 'CustNo'
DataSource = DataSource1
MaxLength = 0
TabOrder = 0
end
object EditCompany: TDBEdit
Left = 121
Top = 32
Width = 210
Height = 24
DataField = 'Company'
DataSource = DataSource1
MaxLength = 30
TabOrder = 1
end
object EditAddr: TDBEdit
Left = 121
Top = 58
Width = 210
Height = 24
DataField = 'Addr1'
DataSource = DataSource1
MaxLength = 30
TabOrder = 2
end
object EditAddr2: TDBEdit
Left = 121
Top = 84
Width = 210
Height = 24
DataField = 'Addr2'
DataSource = DataSource1
MaxLength = 30
TabOrder = 3
end
object EditCity: TDBEdit
Left = 121
Top = 110
Width = 105
Height = 24
DataField = 'City'
DataSource = DataSource1
MaxLength = 15
TabOrder = 4
end
object EditState: TDBEdit
Left = 121
Top = 136
Width = 140
Height = 24
DataField = 'State'
DataSource = DataSource1
MaxLength = 20
TabOrder = 5
end
object EditZip: TDBEdit
Left = 121
Top = 162
Width = 70
Height = 24
DataField = 'Zip'
DataSource = DataSource1
MaxLength = 10
TabOrder = 6
end
object EditCountry: TDBEdit
Left = 121
Top = 188
Width = 140
Height = 24
DataField = 'Country'
DataSource = DataSource1
MaxLength = 20
TabOrder = 7
end
end
end
object Panel3: TPanel
Left = 0
Top = 364
Width = 632
Height = 248
Align = alClient
BevelInner = bvLowered
BorderWidth = 4
Caption = 'Panel2'
TabOrder = 2
object ScrollBox1: TScrollBox
Left = 6
Top = 6
Width = 620
Height = 236
HorzScrollBar.Margin = 6
VertScrollBar.Margin = 6
VertScrollBar.Position = 750
Align = alClient
BorderStyle = bsNone
Color = clBtnFace
ParentColor = False
TabOrder = 0
object Label14: TLabel
Left = 24
Top = -710
Width = 298
Height = 16
Caption = '1111 St James'#39' Street, Pretoria, South Africa, 0083'
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsItalic]
ParentFont = False
end
object Shape1: TShape
Left = 20
Top = -690
Width = 737
Height = 5
Brush.Color = clBlack
end
object Label18: TLabel
Left = 436
Top = -710
Width = 29
Height = 16
Caption = 'Fax :'
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsItalic]
ParentFont = False
end
object Label19: TLabel
Left = 428
Top = -630
Width = 3
Height = 16
Caption = '.'
end
object Label28: TLabel
Left = 28
Top = 166
Width = 70
Height = 18
Caption = 'The Chief'
Font.Color = clBlack
Font.Height = -15
Font.Name = 'Arial'
Font.Style = [fsBold, fsUnderline]
ParentFont = False
end
object Label29: TLabel
Left = 24
Top = -742
Width = 163
Height = 26
Caption = 'Demo Company'
Font.Color = clBlack
Font.Height = -23
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label20: TLabel
Left = 468
Top = -710
Width = 100
Height = 16
Caption = '+27-12-11111111'
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsItalic]
ParentFont = False
end
object Image1: TImage
Left = 707
Top = -619
Width = 85
Height = 105
Picture.Data = {<image000.bmp>}
end
object Label9: TLabel
Left = 16
Top = -392
Width = 58
Height = 17
Caption = 'Dear Sir,'
Font.Color = clBlack
Font.Height = -15
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label10: TLabel
Left = 18
Top = -352
Width = 310
Height = 17
Caption = 'Thank you for registering your company with us.'
Font.Color = clBlack
Font.Height = -15
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label11: TLabel
Left = 164
Top = -256
Width = 109
Height = 16
Alignment = taRightJustify
AutoSize = False
Caption = 'Company'
FocusControl = EditCompany
Font.Color = clBlack
Font.Height = -15
Font.Name = 'Times New Roman'
Font.Style = []
ParentFont = False
end
object Label12: TLabel
Left = 164
Top = -230
Width = 109
Height = 16
Alignment = taRightJustify
AutoSize = False
Caption = 'Address'
FocusControl = EditAddr
Font.Color = clBlack
Font.Height = -15
Font.Name = 'Times New Roman'
Font.Style = []
ParentFont = False
end
object Label15: TLabel
Left = 164
Top = -178
Width = 109
Height = 16
Alignment = taRightJustify
AutoSize = False
Caption = 'City'
FocusControl = EditCity
Font.Color = clBlack
Font.Height = -15
Font.Name = 'Times New Roman'
Font.Style = []
ParentFont = False
end
object Label16: TLabel
Left = 164
Top = -152
Width = 109
Height = 16
Alignment = taRightJustify
AutoSize = False
Caption = 'State'
FocusControl = EditState
Font.Color = clBlack
Font.Height = -15
Font.Name = 'Times New Roman'
Font.Style = []
ParentFont = False
end
object Label17: TLabel
Left = 164
Top = -126
Width = 109
Height = 16
Alignment = taRightJustify
AutoSize = False
Caption = 'Zip'
FocusControl = EditZip
Font.Color = clBlack
Font.Height = -15
Font.Name = 'Times New Roman'
Font.Style = []
ParentFont = False
end
object Label21: TLabel
Left = 164
Top = -100
Width = 109
Height = 16
Alignment = taRightJustify
AutoSize = False
Caption = 'Country'
FocusControl = EditCountry
Font.Color = clBlack
Font.Height = -15
Font.Name = 'Times New Roman'
Font.Style = []
ParentFont = False
end
object Label13: TLabel
Left = 26
Top = -44
Width = 199
Height = 19
Caption = 'Your customer number is'
Font.Color = clBlack
Font.Height = -17
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object Label22: TLabel
Left = 28
Top = 34
Width = 316
Height = 19
Caption = 'Please quote it in all future correspondence'
Font.Color = clBlack
Font.Height = -17
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Memo5: TMemo
Left = 16
Top = -323
Width = 797
Height = 46
BorderStyle = bsNone
Color = clBtnFace
Ctl3D = False
Font.Color = clBlack
Font.Height = -15
Font.Name = 'Arial'
Font.Style = []
Lines.Strings = (
'To enable us to keep our records up to date, please check the fo' +
'llowing details and make sure they are '
'correct'#39)
ParentCtl3D = False
ParentFont = False
TabOrder = 0
end
object Memo6: TMemo
Left = 24
Top = 60
Width = 771
Height = 63
BorderStyle = bsNone
Color = clBtnFace
Ctl3D = False
Font.Color = clBlack
Font.Height = -17
Font.Name = 'Arial'
Font.Style = []
Lines.Strings = (
'Your support and satisfaction is very important to us. If you ha' +
've a problem, please let us know.'
'Thank you and best regards.'
''
''
'')
ParentCtl3D = False
ParentFont = False
TabOrder = 1
end
object Memo7: TMemo
Left = 28
Top = 189
Width = 721
Height = 28
BorderStyle = bsNone
Color = clWhite
Ctl3D = False
Font.Color = clBlack
Font.Height = -17
Font.Name = 'Arial'
Font.Style = [fsBold]
Lines.Strings = (
'Ps. This is a demo program'
'')
ParentCtl3D = False
ParentFont = False
ReadOnly = True
TabOrder = 2
end
object Edit1: TEdit
Left = 22
Top = -674
Width = 119
Height = 24
BorderStyle = bsNone
Color = clBtnFace
Font.Color = clBlack
Font.Height = -15
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 3
Text = '12 January1996'
end
object DBEdit2: TDBEdit
Left = 19
Top = -610
Width = 210
Height = 25
DataField = 'Company'
DataSource = DataSource1
Font.Color = clBlack
Font.Height = -15
Font.Name = 'Arial'
Font.Style = []
MaxLength = 30
ParentFont = False
TabOrder = 4
end
object DBEdit3: TDBEdit
Left = 19
Top = -584
Width = 210
Height = 25
DataField = 'Addr1'
DataSource = DataSource1
Font.Color = clBlack
Font.Height = -15
Font.Name = 'Arial'
Font.Style = []
MaxLength = 30
ParentFont = False
TabOrder = 5
end
object DBEdit4: TDBEdit
Left = 19
Top = -558
Width = 210
Height = 25
DataField = 'Addr2'
DataSource = DataSource1
Font.Color = clBlack
Font.Height = -15
Font.Name = 'Arial'
Font.Style = []
MaxLength = 30
ParentFont = False
TabOrder = 6
end
object DBEdit5: TDBEdit
Left = 19
Top = -532
Width = 105
Height = 25
DataField = 'City'
DataSource = DataSource1
Font.Color = clBlack
Font.Height = -15
Font.Name = 'Arial'
Font.Style = []
MaxLength = 15
ParentFont = False
TabOrder = 7
end
object DBEdit6: TDBEdit
Left = 19
Top = -506
Width = 140
Height = 25
DataField = 'State'
DataSource = DataSource1
Font.Color = clBlack
Font.Height = -15
Font.Name = 'Arial'
Font.Style = []
MaxLength = 20
ParentFont = False
TabOrder = 8
end
object DBEdit7: TDBEdit
Left = 19
Top = -480
Width = 70
Height = 25
DataField = 'Zip'
DataSource = DataSource1
Font.Color = clBlack
Font.Height = -15
Font.Name = 'Arial'
Font.Style = []
MaxLength = 10
ParentFont = False
TabOrder = 9
end
object DBEdit8: TDBEdit
Left = 19
Top = -454
Width = 140
Height = 25
DataField = 'Country'
DataSource = DataSource1
Font.Color = clBlack
Font.Height = -15
Font.Name = 'Arial'
Font.Style = []
MaxLength = 20
ParentFont = False
TabOrder = 10
end
object DBEdit1: TDBEdit
Left = 279
Top = -260
Width = 210
Height = 24
DataField = 'Company'
DataSource = DataSource1
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
MaxLength = 30
ParentFont = False
TabOrder = 11
end
object DBEdit9: TDBEdit
Left = 279
Top = -234
Width = 210
Height = 24
DataField = 'Addr1'
DataSource = DataSource1
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
MaxLength = 30
ParentFont = False
TabOrder = 12
end
object DBEdit10: TDBEdit
Left = 279
Top = -208
Width = 210
Height = 24
DataField = 'Addr2'
DataSource = DataSource1
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
MaxLength = 30
ParentFont = False
TabOrder = 13
end
object DBEdit11: TDBEdit
Left = 279
Top = -182
Width = 105
Height = 24
DataField = 'City'
DataSource = DataSource1
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
MaxLength = 15
ParentFont = False
TabOrder = 14
end
object DBEdit12: TDBEdit
Left = 279
Top = -156
Width = 140
Height = 24
DataField = 'State'
DataSource = DataSource1
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
MaxLength = 20
ParentFont = False
TabOrder = 15
end
object DBEdit13: TDBEdit
Left = 279
Top = -130
Width = 70
Height = 24
DataField = 'Zip'
DataSource = DataSource1
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
MaxLength = 10
ParentFont = False
TabOrder = 16
end
object DBEdit14: TDBEdit
Left = 279
Top = -104
Width = 140
Height = 24
DataField = 'Country'
DataSource = DataSource1
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
MaxLength = 20
ParentFont = False
TabOrder = 17
end
object DBEdit15: TDBEdit
Left = 275
Top = -10
Width = 70
Height = 24
DataField = 'CustNo'
DataSource = DataSource1
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
MaxLength = 0
ParentFont = False
TabOrder = 18
end
end
end
object Panel4: TPanel
Left = 0
Top = 50
Width = 632
Height = 41
Align = alTop
Caption = 'Demo Chain Letter'
Font.Color = clNavy
Font.Height = -23
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
end
object Panel5: TPanel
Left = 0
Top = 323
Width = 632
Height = 41
Align = alTop
Caption = 'A few Panels - Only bottom Panel is printed as the chain letter'
Font.Color = clNavy
Font.Height = -17
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
end
object Query1: TQuery
Active = True
DatabaseName = 'DBDEMOS'
SQL.Strings = (
'Select'
' customer."CustNo",'
' customer."Company",'
' customer."Addr1",'
' customer."Addr2",'
' customer."City",'
' customer."State",'
' customer."Zip",'
' customer."Country",'
' customer."Phone",'
' customer."FAX",'
' customer."TaxRate",'
' customer."Contact",'
' customer."LastInvoiceDate"'
'From customer')
Left = 260
Top = 5
end
object DataSource1: TDataSource
DataSet = Query1
Left = 287
Top = 5
end
object DBPrintWin1: TDBPrintWin
About = 'Version 5.32'
AboutRegistered = 'TOM SNIDER'
HeaderFont.Color = clWindowText
HeaderFont.Height = 16
HeaderFont.Name = 'Arial'
HeaderFont.Style = []
Font.Color = clWindowText
Font.Height = 16
Font.Name = 'Arial'
Font.Style = []
FooterFont.Color = clWindowText
FooterFont.Height = 12
FooterFont.Name = 'Arial'
FooterFont.Style = []
FrameObjects = True
clBtnFaceAsWhite = True
OutputTo = poViewer
Orientation = Default
Units = poInches
ViewButtonVisible = False
ShowCancelDialog = True
LineWidth = 0
Copies = 1
GridBackDrop = False
GridBackDropUnits = poInches
ZoomPercentage = 25.000000000000000000
HeaderTop = 0.500000000000000000
HeaderLeft = 0.500000000000000000
HeaderStringLeft = ' '
HeaderStringCenter = ' '
HeaderStringRight = ' '
HeaderEnabled = True
HeaderOutlined = False
HeaderFilled = False
TextColor = clBlack
ViewBkColor = 11234567
ViewHeading = 'Printit Viewer'
HeadingColor = clSilver
FrameStyle = frThin
FooterTop = 10.170000000000000000
FooterString = ' '
FooterEnabled = True
FooterOutlined = False
FooterFilled = False
FixSansSerif = True
FooterStringLeft = 'Printed on @Date at @Time'
FooterStringRight = 'Page @Page'
BorderLeft = 0.500000000000000000
BorderRight = 0.500000000000000000
LineSpacing = 2.800000000000000000
Left = 432
Top = 58
end
end